Public Class NewTablesTestForm
    Private f_vars As BikiSoft.Vars
    Private m_config As CarConfig
    Private f_array As Byte()
    Private Sub NewTablesTestForm_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        
        f_vars = New Vars("Global Vars")
        f_array = arrayLoad("C:\Documents and Settings\BadBiki\My Documents\Coding\Testing\BinFiles\ps13t.Japtunned.moreboost.bin")
        f_vars.addNode(New Var("ISF", New BikDescription("Injector Scaling Factor"), 32778, 1, 16))
        f_vars.addNode(New Var("RPM Limit 1", New BikDescription("RPM Limit 1"), 32860, 12.5, 16))
        f_vars.addNode(New Var("o2 Control", New BikDescription("o2 closed Loop Control"), 32824, 1, 1, 6))
        f_vars.addNode(New Var("Knock Control", New BikDescription("Knock closed Loop Control"), 32824, 1, 1, 5))
        f_vars.removeByName("ISF")
        Console.WriteLine("Number of variables in vars is : " & f_vars.count)
        f_vars.getByName("o2 Control").SetValue(f_array, 0)
        varsPopulate()
    End Sub
    Private Sub varsPopulate()
        Try
            Dim f_var() As BikiSoft.Var = f_vars.getAsArray
            dGridVars.RowCount = 0
            If Not IsNothing(f_vars) Then
                For Each vari As Var In f_var
                    With dGridVars
                        .RowCount += 1
                        .Item(0, .RowCount - 1).Value = vari.Name
                        .Item(0, .RowCount - 1).ReadOnly = True
                        .Item(1, .RowCount - 1).Value = vari.Description.Description
                        .Item(1, .RowCount - 1).ReadOnly = True
                        .Item(2, .RowCount - 1).Value = vari.getValue(f_array)
                        .Item(2, .RowCount - 1).ReadOnly = True
                    End With
                Next
            End If
        Catch
        End Try
    End Sub
End Class